home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / slar2v.z / slar2v
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAARRRR2222VVVV((((3333FFFF))))                                                          SSSSLLLLAAAARRRR2222VVVV((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLAR2V - applie a vector of real plane rotations from both sides to a
  10.      sequence of 2-by-2 real symmetric matrices, defined by the elements of
  11.      the vectors x, y and z
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  14.      SUBROUTINE SLAR2V( N, X, Y, Z, INCX, C, S, INCC )
  15.  
  16.          INTEGER        INCC, INCX, N
  17.  
  18.          REAL           C( * ), S( * ), X( * ), Y( * ), Z( * )
  19.  
  20. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  21.      SLAR2V applies a vector of real plane rotations from both sides to a
  22.      sequence of 2-by-2 real symmetric matrices, defined by the elements of
  23.      the vectors x, y and z. For i = 1,2,...,n
  24.  
  25.         ( x(i)  z(i) ) := (  c(i)  s(i) ) ( x(i)  z(i) ) ( c(i) -s(i) )
  26.         ( z(i)  y(i) )    ( -s(i)  c(i) ) ( z(i)  y(i) ) ( s(i)  c(i) )
  27.  
  28.  
  29. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  30.      N       (input) INTEGER
  31.              The number of plane rotations to be applied.
  32.  
  33.      X       (input/output) REAL array,
  34.              dimension (1+(N-1)*INCX) The vector x.
  35.  
  36.      Y       (input/output) REAL array,
  37.              dimension (1+(N-1)*INCX) The vector y.
  38.  
  39.      Z       (input/output) REAL array,
  40.              dimension (1+(N-1)*INCX) The vector z.
  41.  
  42.      INCX    (input) INTEGER
  43.              The increment between elements of X, Y and Z. INCX > 0.
  44.  
  45.      C       (input) REAL array, dimension (1+(N-1)*INCC)
  46.              The cosines of the plane rotations.
  47.  
  48.      S       (input) REAL array, dimension (1+(N-1)*INCC)
  49.              The sines of the plane rotations.
  50.  
  51.      INCC    (input) INTEGER
  52.              The increment between elements of C and S. INCC > 0.
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.